home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.06.lha / AmiCAD / ARexx / EditString.AmiCAD < prev    next >
Text File  |  2000-04-16  |  2KB  |  79 lines
  1. /* Édition du (des) texte(s) associé(s) à un objet
  2. Version 1.00: 6 janvier 1999
  3. Version 1.01: 13 avril 2000 (modif SAVEALL)
  4. $VER: 1.01 (© R.Florac, 13 avril 2000) */
  5.  
  6. options results
  7.  
  8. 'FIRSTSEL'; o=result
  9. if o=0 then do
  10.     'MESSAGE("Sélectionnez l''objet à éditer")'
  11.     exit
  12. end
  13.  
  14. 'TYPE('o')'; t=result
  15. select
  16.     when t=1 then do    /* composant */
  17.     'GETVAL('o')'; v=result
  18.     'GETREF('o')'; r=result
  19.     'PARTNAME('o')'; n=result
  20.     if r>0 then do
  21.         'READTEXT('r')'
  22.         at=result
  23.     end
  24.     else at=left(n,1)
  25.     'ASKTEXT("Référence 'n'?","'at'")'; t=result
  26.     if t="" then exit
  27.     if t~=at then do
  28.         'SAVEALL'
  29.         'SETREF('o',"'t'")'
  30.         sauver=0
  31.     end
  32.     if v>0 then do
  33.         'READTEXT('v')'
  34.         at=result
  35.     end
  36.     else at=""
  37.     'ASKTEXT("Valeur/type 't'?","'at'")'; t=result
  38.     if t="" then exit
  39.     if t~=at then do
  40.         if n="RÉSISTANCE" then t=t||'8B'x       /* ajout signe ohm */
  41.         if sauver~=0 then 'SAVEALL'
  42.         'SETVAL('o',"'t'")'
  43.     end
  44.     end
  45.     when t=4 then do    /* texte */
  46.     'ASKTEXT("Texte", READTEXT('o'))'; t=result
  47.     if t~="" then do
  48.         'SETTEXT('o',"'t'")'
  49.     end
  50.     end
  51.     when t=5 then do
  52.     'ASKTEXT("Référence", READTEXT('o'))'; t=result
  53.     if t~="" then do
  54.         'SETTEXT('o',"'t'")'
  55.     end
  56.     end
  57.     when t=6 then do
  58.     'ASKTEXT("Valeur/Type", READTEXT('o'))'; t=result
  59.     if t~="" then do
  60.         'SETTEXT('o',"'t'")'
  61.     end
  62.     end
  63.     when t=11 then do
  64.     'ASKTEXT("Connecteur d''entrée", READTEXT('o'))'; t=result
  65.     if t~="" then do
  66.         'SETTEXT('o',"'t'")'
  67.     end
  68.     end
  69.     when t=12 then do
  70.     'ASKTEXT("Connecteur de sortie", READTEXT('o'))'; t=result
  71.     if t~="" then do
  72.         'SETTEXT('o',"'t'")'
  73.     end
  74.     end
  75.     otherwise do
  76.     'MESSAGE("Objet incorrect")'
  77.     end
  78. end
  79.